[Analog_Engine.git] / scripts / Radioactive Decay.AESL

IDENTIFICATION DIVISION
PROGRAM-ID Radioactive_Decay

ENVIRONMENT DIVISION
ENGINE Anabrid-THAT
REQUIRES COEFFICIENT 2
REQUIRES INTEGRATOR 1
REQUIRES INVERTER 1

DATA DIVISION
OUTPUT OUTPUT.X N
COEFFICIENT.1 InitialValue
COEFFICIENT.2 Decay 

PROGRAM DIVISION
+1 -> COEFFICIENT.InitialValue -> N0
N’, IC:N0 -> INTEGRATOR -> -N
-N -> COEFFICIENT.Decay -> -lambda*N=N’
-N -> INVERTER -> N

OPERATION DIVISION
MODE REPEAT
OP-TIME 20ms
Commit	Line	Data
2faffece P	1	IDENTIFICATION DIVISION
	2	PROGRAM-ID Radioactive_Decay
	3
	4	ENVIRONMENT DIVISION
	5	ENGINE Anabrid-THAT
6e8a1392 P	6	REQUIRES COEFFICIENT 2
	7	REQUIRES INTEGRATOR 1
	8	REQUIRES INVERTER 1
2faffece P	9
2faffece P	10	DATA DIVISION
f25252dd	11	OUTPUT OUTPUT.X N
6e8a1392 P	12	COEFFICIENT.1 InitialValue
6e8a1392 P	13	COEFFICIENT.2 Decay
2faffece P	14
2faffece P	15	PROGRAM DIVISION
6e8a1392 P	16	+1 -> COEFFICIENT.InitialValue -> N0
	17	N’, IC:N0 -> INTEGRATOR -> -N
	18	-N -> COEFFICIENT.Decay -> -lambda*N=N’
	19	-N -> INVERTER -> N
2faffece P	20
	21	OPERATION DIVISION
	22	MODE REPEAT
	23	OP-TIME 20ms